home *** CD-ROM | disk | FTP | other *** search
/ EuroCD 3 / EuroCD 3.iso / Programming / SecalDemo / Inc / libcalls / cardres.inc < prev    next >
Text File  |  1998-06-24  |  2KB  |  115 lines
  1. pattern OwnCard(_handle) is
  2.     push a6;
  3.     a1:=_handle;
  4.     a6:=CardResource; jsr [a6-6];
  5.     pop a6;
  6. endp;                                                            # OWNCARD
  7.  
  8. pattern ReleaseCard(_handle,_flags) is
  9.     push a6;
  10.     safe a1:=_handle; d0.l:=_flags;;
  11.     a6:=CardResource; jsr [a6-12];
  12.     pop a6;
  13. endp;                                                            # RELEASECARD
  14.  
  15. pattern GetCardMap is
  16.     push a6;
  17.     a6:=CardResource; jsr [a6-18];
  18.     pop a6;
  19. endp;                                                            # GETCARDMAP
  20.  
  21. pattern BeginCardAccess(_handle) is
  22.     push a6;
  23.     a1:=_handle;
  24.     a6:=CardResource; jsr [a6-24];
  25.     pop a6;
  26. endp;                                                            # BEGINCARDACCESS
  27.  
  28. pattern EndCardAccess(_handle) is
  29.     push a6;
  30.     a1:=_handle;
  31.     a6:=CardResource; jsr [a6-30];
  32.     pop a6;
  33. endp;                                                            # ENDCARDACCESS
  34.  
  35. pattern ReadCardStatus is
  36.     push a6;
  37.     a6:=CardResource; jsr [a6-36];
  38.     pop a6;
  39. endp;                                                            # READCARDSTATUS
  40.  
  41. pattern CardResetRemove(_handle,_flag) is
  42.     push a6;
  43.     safe a1:=_handle; d0.l:=_flag;;
  44.     a6:=CardResource; jsr [a6-42];
  45.     pop a6;
  46. endp;                                                            # CARDRESETREMOVE
  47.  
  48. pattern CardMiscControl(_handle,_control_bits) is
  49.     push a6;
  50.     safe a1:=_handle; d1.l:=_control_bits;;
  51.     a6:=CardResource; jsr [a6-48];
  52.     pop a6;
  53. endp;                                                            # CARDMISCCONTROL
  54.  
  55. pattern CardAccessSpeed(_handle,_nanoseconds) is
  56.     push a6;
  57.     safe a1:=_handle; d0.l:=_nanoseconds;;
  58.     a6:=CardResource; jsr [a6-54];
  59.     pop a6;
  60. endp;                                                            # CARDACCESSSPEED
  61.  
  62. pattern CardProgramVoltage(_handle,_voltage) is
  63.     push a6;
  64.     safe a1:=_handle; d0.l:=_voltage;;
  65.     a6:=CardResource; jsr [a6-60];
  66.     pop a6;
  67. endp;                                                            # CARDPROGRAMVOLTAGE
  68.  
  69. pattern CardResetCard(_handle) is
  70.     push a6;
  71.     a1:=_handle;
  72.     a6:=CardResource; jsr [a6-66];
  73.     pop a6;
  74. endp;                                                            # CARDRESETCARD
  75.  
  76. pattern CopyTuple(_handle,_buffer,_tuplecode,_size) is
  77.     push a6;
  78.     safe a1:=_handle; a0:=_buffer; d1.l:=_tuplecode; d0.l:=_size;;
  79.     a6:=CardResource; jsr [a6-72];
  80.     pop a6;
  81. endp;                                                            # COPYTUPLE
  82.  
  83. pattern DeviceTuple(_tuple_data,_storage) is
  84.     push a6;
  85.     safe a0:=_tuple_data; a1:=_storage;;
  86.     a6:=CardResource; jsr [a6-78];
  87.     pop a6;
  88. endp;                                                            # DEVICETUPLE
  89.  
  90. pattern IfAmigaXIP(_handle) is
  91.     push a2\a6;
  92.     a2:=_handle;
  93.     a6:=CardResource; jsr [a6-84];
  94.     pop a2\a6;
  95. endp;                                                            # IFAMIGAXIP
  96.  
  97. pattern CardForceChange is
  98.     push a6;
  99.     a6:=CardResource; jsr [a6-90];
  100.     pop a6;
  101. endp;                                                            # CARDFORCECHANGE
  102.  
  103. pattern CardChangeCount is
  104.     push a6;
  105.     a6:=CardResource; jsr [a6-96];
  106.     pop a6;
  107. endp;                                                            # CARDCHANGECOUNT
  108.  
  109. pattern CardInterface is
  110.     push a6;
  111.     a6:=CardResource; jsr [a6-102];
  112.     pop a6;
  113. endp;                                                            # CARDINTERFACE
  114.  
  115.